home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / General / MM3Tp.sea Folder / Made by Marksman / Sources / u / InitExitMM_Demo.p < prev    next >
Text File  |  1994-01-16  |  2KB  |  67 lines
  1. unit UInitExitMM_Demo;
  2. {  Copyright © 1994 George R. Cossey }
  3. {   InitExitMM_Demo                    Program Init and Exit routines 
  4.  
  5.     File name:  InitExitMM_Demo 
  6.     Function:  This module contains the extra program initialization
  7.      routine as well as the program exit and cleanup routine.
  8.     History: 1/16/94 Original by George Cossey
  9.  
  10.    }
  11.  
  12.  
  13. interface
  14.  
  15.     uses
  16.         Printing, Folders, Sound,mmCommonMM_Demo,CommonMM_Demo;
  17.  
  18. { ======================================================= }
  19. { ======================================================= }
  20.  
  21. { Program initializations }
  22. procedure ApplInitMM_Demo;
  23.  
  24. { Program exit and cleanup }
  25. procedure ApplExitMM_Demo;
  26.  
  27. { ======================================================= }
  28. { ======================================================= }
  29.  
  30. implementation
  31.  
  32. { ======================================================= }
  33. { ======================================================= }
  34.  
  35. { Routine: ApplInitMM_Demo }
  36. { Purpose: Extra program initialization }
  37.  
  38. {      WNE: boolean, This variable set to TRUE says the WaitNextEvent trap is available,  }
  39. {          If we want to use that trap then we do nothing to this variable.  If we do not  }
  40. {          want to use that trap, and use GetNextEvent instead, then we change this }
  41. {          variable to FALSE. }
  42. {      SleepValue:integer, This is only valid if WNE is true.  This is the default sleep }
  43. {          value to use with WaitNextEvent, it is set to 40.  This can be changed to any }
  44. {          value desired at any time. }
  45.  
  46. procedure ApplInitMM_Demo;                                { Initialization }
  47.  
  48.  
  49. begin
  50. end;
  51.  
  52. { ======================================================= }
  53.  
  54. { Routine: ApplExitMM_Demo }
  55. { Purpose: Extra program cleanup upon exit from our program }
  56. { This is where left over buffers are released and any open files are closed }
  57.  
  58. procedure ApplExitMM_Demo;                                { Exit and cleanup }
  59.  
  60.  
  61. begin
  62. end;
  63.  
  64. { ======================================================= }
  65. { ======================================================= }
  66. end.
  67.